home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / Reference / DevCon / Milan_1991 / Devcon91.4 / Installer / Install-Test < prev    next >
Encoding:
Text File  |  1992-09-01  |  3.0 KB  |  173 lines
  1. ; This is test of many of the features of the Installer
  2. ; Prints out debugging info if run from CLI
  3.  
  4. (onerror
  5.     (makeassign "FRED")
  6. )
  7.  
  8. (transcript "On making \"T:Fred\"...")
  9.  
  10. (makedir "T:fred"
  11.     (prompt "I will now create the directory \"T:Fred\"")
  12.     (help @makedir-help)
  13.     (infos)
  14.     (confirm)
  15. )
  16.  
  17. (copyfiles
  18.     (prompt "Copying all devices to Fred.")
  19.     (help @copyfiles-help)
  20.     (source "DEVS:")
  21.     (dest "T:fred/angie")
  22.     (pattern "#?.device")
  23.     (files)
  24.     (confirm)
  25. )
  26.  
  27. (copylib
  28.     (prompt "Copying one device to Fred.")
  29.     (help @copylib-help)
  30.     (source "LIBS:version.library")
  31.     (dest "T:fred/angie")
  32.     (confirm)
  33. )
  34.  
  35. (startup "FredApp"
  36.     (prompt
  37.         "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use FredApp.")
  38.     (help "No help for this function")
  39.     (command "assign Fred: T:\n")
  40. )
  41.  
  42. (tooltype 
  43.     (prompt "Tooltype test")
  44.     (help "No help here either")
  45.     (dest "T:fred")
  46.     (noposition)
  47.     (confirm)
  48. )
  49.  
  50. (textfile
  51.     (prompt "Creating a textfile...")
  52.     (help "The 'NO HELP' generation continues!")
  53.     (dest "T:fred/prayer")
  54.     (append "In the begining there was the Amiga 1000, and this was good...\n")
  55.     (include "DEVS:Mountlist")
  56.     (confirm)
  57. )
  58.  
  59. (run "info >t:fred/result"
  60.     (prompt "Running 'info'")
  61.     (help "This will only work from the CLI!")
  62.     (confirm)
  63. )
  64.  
  65. (if @pretend
  66.     (makeassign "FRED" "T:" (safe))
  67.     (makeassign "FRED" "T:fred")
  68. )
  69.  
  70. (rename "Fred:result" "Fred:data"
  71.     (prompt "Renaming 'result' to 'data'")
  72.     (help "So why wasn't it named that in the first place??")
  73.     (confirm)
  74. )
  75.  
  76. (delete "FRED:angie/printer.device"
  77.     (prompt "Going to delete Fred's printer.")
  78.     (help "That's nice...")
  79.     (confirm)
  80. )
  81.  
  82. (message "End of first set of tests!")
  83.  
  84. (set name
  85.     (askdir
  86.         (prompt "OK, where was that directory??")
  87.         (help @askdir-help)
  88.         (default "FRED:")
  89.     )
  90. )
  91.  
  92. (debug "Directory was " name)
  93.  
  94. (set name
  95.     (askfile
  96.         (prompt "OK, where was that file??")
  97.         (help @askfile-help)
  98.         (default "FRED:angie")
  99.     )
  100. )
  101.  
  102. (debug "File was " name)
  103.  
  104. (set name
  105.     (askstring
  106.         (prompt "OK, what should I have named that data file?")
  107.         (help @askstring-help)
  108.         (default "happy_file")
  109.     )
  110. )
  111.  
  112. (debug "String was " name)
  113.  
  114. (set name
  115.     (asknumber
  116.         (prompt "How old are you?")
  117.         (help @asknumber-help)
  118.         (range 1 150)
  119.         (default 32)
  120.     )
  121. )
  122.  
  123. (debug "Number was " name)
  124.  
  125. (set name
  126.     (askchoice
  127.         (prompt "How do you rate things so far?")
  128.         (help @askchoice-help)
  129.         (choices "Pretty good" "OK" "Only fair" "Rather dismal")
  130.         (default 0)
  131.     )
  132. )
  133.  
  134. (debug "Choice was " name)
  135.  
  136. (set name
  137.     (askoptions
  138.         (prompt "What would you like to eat?")
  139.         (help @askoptions-help)
  140.         (choices "Hamburger" "Fries" "Salad" "Strawberry Shake" "Apple Pie")
  141.         (default 9)
  142.     )
  143. )
  144.  
  145. (debug "Options bits were " name)
  146.  
  147. (set name
  148.     (askbool
  149.         (prompt "Should Puerto Rico become the next state?")
  150.         (help "It's up to YOU.")
  151.         (choices "Make a State" "Nuke 'Em")
  152.         (default 0)
  153.     )
  154. )
  155.  
  156. (debug "Result of AskBool was " name)
  157.  
  158. (trap    1
  159.     (askbool
  160.         (prompt "Please hit ABORT!")
  161.         (help "Pretty please...")
  162.     )
  163. )
  164.  
  165. (abort
  166.      "Well, I hope you liked this test of the emergency installer system!"
  167. )
  168.  
  169. (exit)
  170.  
  171. (run "format <ram:yfile drive rad: name Test noicons")
  172.  
  173.